Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / mac / Chat.t < prev next >

MacBinary | 1992-12-17 | 2.4 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	E-Tracker Chiptune `(music/eTracker)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Simis `(archive/simis)`	ext	Unsupported
`1%`	dexvert	TADS `(other/tads)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Dec 16 20:57:22 1992, modified Wed Dec 16 20:57:22 1992, creator 'MPS ', type ASCII, 1725 bytes "Chat.t" Perl script text executable	default (weak)
`99%`	file	a /usr/local/bin/perl -d script executable (binary data), at 0x73d 428 bytes resource Perl script text executable	default (weak)
`98%`	file	a /usr/local/bin/perl -d script executable (binary data)	default (weak)
`97%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 43 68 61 74 2e 74 | 00 00 00 00 00 00 00 00 |..Chat.t|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 bd 00 | 00 01 ac a7 55 8f 02 a7 |........|....U...|
|00000060| 55 8f 02 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |U.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 32 c9 00 00 |........|....2...|
|00000080| 23 21 2f 75 73 72 2f 6c | 6f 63 61 6c 2f 62 69 6e |#!/usr/l|ocal/bin|
|00000090| 2f 70 65 72 6c 20 2d 64 | 0d 0d 72 65 71 75 69 72 |/perl -d|..requir|
|000000a0| 65 20 22 6d 61 63 63 68 | 61 74 2e 70 6c 22 3b 0d |e "macch|at.pl";.|
|000000b0| 0d 24 66 61 6d 69 6c 79 | 20 3d 20 70 69 63 6b 28 |.$family| = pick(|
|000000c0| 22 43 68 6f 6f 73 65 20 | 61 20 73 6f 63 6b 65 74 |"Choose |a socket|
|000000d0| 20 66 61 6d 69 6c 79 22 | 2c 20 22 55 6e 69 78 22 | family"|, "Unix"|
|000000e0| 2c 20 22 41 70 70 6c 65 | 74 61 6c 6b 22 2c 20 22 |, "Apple|talk", "|
|000000f0| 54 43 50 2f 49 50 22 2c | 20 22 50 50 43 22 29 0d |TCP/IP",| "PPC").|
|00000100| 09 7c 7c 20 64 69 65 20 | 22 59 6f 75 20 64 69 64 |.|| die |"You did|
|00000110| 6e 27 74 20 73 70 65 63 | 69 66 79 20 61 20 73 6f |n't spec|ify a so|
|00000120| 63 6b 65 74 20 66 61 6d | 69 6c 79 20 21 22 3b 0d |cket fam|ily !";.|
|00000130| 0d 24 73 65 72 76 65 72 | 20 3d 20 61 6e 73 77 65 |.$server| = answe|
|00000140| 72 28 22 57 68 6f 20 61 | 72 65 20 79 6f 75 20 3f |r("Who a|re you ?|
|00000150| 22 2c 20 22 53 65 72 76 | 65 72 22 2c 20 22 43 6c |", "Serv|er", "Cl|
|00000160| 69 65 6e 74 22 29 3b 0d | 0d 69 66 20 28 24 66 61 |ient");.|.if ($fa|
|00000170| 6d 69 6c 79 20 65 71 20 | 22 55 6e 69 78 22 29 20 |mily eq |"Unix") |
|00000180| 7b 0d 09 24 66 61 6d 69 | 6c 79 20 3d 20 26 47 55 |{..$fami|ly = &GU|
|00000190| 53 49 27 41 46 5f 55 4e | 49 58 3b 0d 09 24 61 64 |SI'AF_UN|IX;..$ad|
|000001a0| 64 72 20 3d 20 09 63 68 | 6f 6f 73 65 28 24 66 61 |dr = .ch|oose($fa|
|000001b0| 6d 69 6c 79 2c 20 30 2c | 20 22 22 2c 20 22 22 2c |mily, 0,| "", "",|
|000001c0| 20 24 73 65 72 76 65 72 | 20 3f 20 26 47 55 53 49 | $server| ? &GUSI|
|000001d0| 27 43 48 4f 4f 53 45 5f | 4e 45 57 20 3a 20 30 29 |'CHOOSE_|NEW : 0)|
|000001e0| 0d 09 09 09 7c 7c 20 26 | 47 55 53 49 27 70 61 63 |....|| &|GUSI'pac|
|000001f0| 6b 5f 73 6f 63 6b 61 64 | 64 72 5f 75 6e 28 24 66 |k_sockad|dr_un($f|
|00000200| 61 6d 69 6c 79 2c 20 22 | 4d 61 63 43 68 61 74 22 |amily, "|MacChat"|
|00000210| 29 3b 0d 7d 20 65 6c 73 | 69 66 20 28 24 66 61 6d |);.} els|if ($fam|
|00000220| 69 6c 79 20 65 71 20 22 | 41 70 70 6c 65 74 61 6c |ily eq "|Appletal|
|00000230| 6b 22 29 20 7b 0d 09 24 | 66 61 6d 69 6c 79 20 3d |k") {..$|family =|
|00000240| 20 26 47 55 53 49 27 41 | 46 5f 41 50 50 4c 45 54 | &GUSI'A|F_APPLET|
|00000250| 41 4c 4b 3b 0d 09 24 61 | 64 64 72 20 3d 20 09 0d |ALK;..$a|ddr = ..|
|00000260| 09 09 63 68 6f 6f 73 65 | 28 24 66 61 6d 69 6c 79 |..choose|($family|
|00000270| 2c 20 30 2c 20 22 41 64 | 64 72 65 73 73 20 3f 22 |, 0, "Ad|dress ?"|
|00000280| 2c 20 0d 09 09 09 26 47 | 55 53 49 27 70 61 63 6b |, ....&G|USI'pack|
|00000290| 5f 73 61 5f 63 6f 6e 73 | 74 72 5f 61 74 6c 6b 28 |_sa_cons|tr_atlk(|
|000002a0| 22 4d 61 63 43 68 61 74 | 22 29 2c 20 0d 09 09 09 |"MacChat|"), ....|
|000002b0| 24 73 65 72 76 65 72 20 | 3f 20 26 47 55 53 49 27 |$server |? &GUSI'|
|000002c0| 43 48 4f 4f 53 45 5f 4e | 45 57 20 3a 20 30 29 3b |CHOOSE_N|EW : 0);|
|000002d0| 0d 09 75 6e 6c 65 73 73 | 20 28 24 61 64 64 72 29 |..unless| ($addr)|
|000002e0| 20 7b 0d 09 09 24 61 64 | 64 72 20 3d 20 26 47 55 | {...$ad|dr = &GU|
|000002f0| 53 49 27 70 61 63 6b 5f | 73 6f 63 6b 61 64 64 72 |SI'pack_|sockaddr|
|00000300| 5f 61 74 6c 6b 5f 73 79 | 6d 28 26 47 55 53 49 27 |_atlk_sy|m(&GUSI'|
|00000310| 41 54 41 4c 4b 5f 53 59 | 4d 41 44 44 52 2c 20 22 |ATALK_SY|MADDR, "|
|00000320| 4d 61 63 43 68 61 74 22 | 2c 20 22 4d 61 63 43 68 |MacChat"|, "MacCh|
|00000330| 61 74 22 2c 20 22 2a 22 | 29 3b 0d 09 7d 0d 7d 20 |at", "*"|);..}.} |
|00000340| 65 6c 73 69 66 20 28 24 | 66 61 6d 69 6c 79 20 65 |elsif ($|family e|
|00000350| 71 20 22 54 43 50 2f 49 | 50 22 29 20 7b 0d 09 24 |q "TCP/I|P") {..$|
|00000360| 66 61 6d 69 6c 79 20 3d | 20 26 47 55 53 49 27 41 |family =| &GUSI'A|
|00000370| 46 5f 49 4e 45 54 3b 0d | 09 24 61 64 64 72 20 3d |F_INET;.|.$addr =|
|00000380| 20 28 24 73 65 72 76 65 | 72 20 3f 20 30 20 3a 20 | ($serve|r ? 0 : |
|00000390| 28 61 73 6b 28 22 48 6f | 73 74 20 3f 22 29 20 7c |(ask("Ho|st ?") ||
|000003a0| 7c 20 64 69 65 20 22 59 | 6f 75 20 72 65 66 75 73 || die "Y|ou refus|
|000003b0| 65 64 20 74 6f 20 73 70 | 65 63 69 66 79 20 61 20 |ed to sp|ecify a |
|000003c0| 68 6f 73 74 20 21 22 29 | 29 3b 0d 09 24 70 6f 72 |host !")|);..$por|
|000003d0| 74 20 3d 20 61 73 6b 28 | 22 50 6f 72 74 20 3f 22 |t = ask(|"Port ?"|
|000003e0| 29 20 7c 7c ca 64 69 65 | 20 22 59 6f 75 20 72 65 |) ||.die| "You re|
|000003f0| 66 75 73 65 64 20 74 6f | 20 73 70 65 63 69 66 79 |fused to| specify|
|00000400| 20 61 20 70 6f 72 74 20 | 6e 75 6d 62 65 72 20 21 | a port |number !|
|00000410| 22 3b 0d 09 24 61 64 64 | 72 20 3d 20 26 47 55 53 |";..$add|r = &GUS|
|00000420| 49 27 70 61 63 6b 5f 73 | 6f 63 6b 61 64 64 72 5f |I'pack_s|ockaddr_|
|00000430| 69 6e 28 24 66 61 6d 69 | 6c 79 2c 20 24 61 64 64 |in($fami|ly, $add|
|00000440| 72 2c 20 24 70 6f 72 74 | 29 3b 0d 7d 20 65 6c 73 |r, $port|);.} els|
|00000450| 69 66 20 28 24 66 61 6d | 69 6c 79 20 65 71 20 22 |if ($fam|ily eq "|
|00000460| 50 50 43 22 29 20 7b 0d | 09 24 66 61 6d 69 6c 79 |PPC") {.|.$family|
|00000470| 20 3d 20 26 47 55 53 49 | 27 41 46 5f 50 50 43 3b | = &GUSI|'AF_PPC;|
|00000480| 0d 7d 0d 0d 69 66 20 28 | 24 73 65 72 76 65 72 29 |.}..if (|$server)|
|00000490| 20 7b 0d 09 26 6d 61 63 | 63 68 61 74 27 6f 70 65 | {..&mac|chat'ope|
|000004a0| 6e 5f 6c 69 73 74 65 6e | 28 24 66 61 6d 69 6c 79 |n_listen|($family|
|000004b0| 2c 20 24 61 64 64 72 29 | 20 7c 7c 20 64 69 65 20 |, $addr)| || die |
|000004c0| 22 4f 70 65 6e 69 6e 67 | 20 66 61 69 6c 65 64 22 |"Opening| failed"|
|000004d0| 3b 0d 09 26 6d 61 63 63 | 68 61 74 27 70 72 69 6e |;..&macc|hat'prin|
|000004e0| 74 28 22 57 65 6c 63 6f | 6d 65 20 74 6f 20 74 68 |t("Welco|me to th|
|000004f0| 69 73 20 63 68 61 74 20 | 73 65 72 76 65 72 2e 5c |is chat |server.\|
|00000500| 6e 22 29 3b 0d 7d 20 65 | 6c 73 65 20 7b 0d 09 26 |n");.} e|lse {..&|
|00000510| 6d 61 63 63 68 61 74 27 | 6f 70 65 6e 5f 70 6f 72 |macchat'|open_por|
|00000520| 74 28 24 66 61 6d 69 6c | 79 2c 20 24 61 64 64 72 |t($famil|y, $addr|
|00000530| 29 20 7c 7c 20 64 69 65 | 20 22 4f 70 65 6e 69 6e |) || die| "Openin|
|00000540| 67 20 66 61 69 6c 65 64 | 22 3b 0d 7d 0d 0d 70 72 |g failed|";.}..pr|
|00000550| 69 6e 74 20 22 3f 5c 6e | 22 3b 0d 0d 77 68 69 6c |int "?\n|";..whil|
|00000560| 65 20 28 3c 3e 29 20 7b | 0d 09 69 66 20 28 2f 77 |e (<>) {|..if (/w|
|00000570| 72 20 28 2e 2a 29 2f 29 | 20 7b 0d 09 09 26 6d 61 |r (.*)/)| {...&ma|
|00000580| 63 63 68 61 74 27 70 72 | 69 6e 74 28 22 24 31 5c |cchat'pr|int("$1\|
|00000590| 6e 22 29 3b 0d 09 7d 20 | 65 6c 73 69 66 20 28 2f |n");..} |elsif (/|
|000005a0| 72 64 2f 29 20 7b 0d 09 | 09 26 6d 61 63 63 68 61 |rd/) {..|.&maccha|
|000005b0| 74 27 65 78 70 65 63 74 | 28 31 30 2c 20 0d 09 09 |t'expect|(10, ...|
|000005c0| 09 27 2e 7c 5c 6e 27 2c | 20 71 7b 70 72 69 6e 74 |.'.|\n',| q{print|
|000005d0| 20 24 6d 61 63 63 68 61 | 74 27 74 68 69 73 62 75 | $maccha|t'thisbu|
|000005e0| 66 3b 20 75 6e 64 65 66 | 20 24 6d 61 63 63 68 61 |f; undef| $maccha|
|000005f0| 74 27 53 7d 2c 0d 09 09 | 09 27 54 49 4d 45 4f 55 |t'S},...|.'TIMEOU|
|00000600| 54 27 2c 20 20 71 7b 70 | 72 69 6e 74 20 22 54 69 |T',  q{p|rint "Ti|
|00000610| 6d 65 64 20 6f 75 74 20 | 21 5c 6e 22 3b 20 75 6e |med out |!\n"; un|
|00000620| 64 65 66 20 24 6d 61 63 | 63 68 61 74 27 53 7d 29 |def $mac|chat'S})|
|00000630| 3b 0d 09 7d 20 65 6c 73 | 69 66 20 28 2f 71 2f 29 |;..} els|if (/q/)|
|00000640| 20 7b 0d 09 09 6c 61 73 | 74 3b 0d 09 7d 20 65 6c | {...las|t;..} el|
|00000650| 73 65 20 7b 0d 09 09 70 | 72 69 6e 74 20 22 56 61 |se {...p|rint "Va|
|00000660| 6c 69 64 20 63 6f 6d 6d | 61 6e 64 73 20 61 72 65 |lid comm|ands are|
|00000670| 3a 5c 6e 22 3b 0d 09 09 | 70 72 69 6e 74 20 22 20 |:\n";...|print " |
|00000680| 20 20 72 64 20 20 20 20 | 20 20 20 20 20 20 20 20 |  rd    |        |
|00000690| 20 20 20 20 20 20 2d 20 | 52 65 61 64 20 61 20 6c |      - |Read a l|
|000006a0| 69 6e 65 2e 5c 6e 22 3b | 0d 09 09 70 72 69 6e 74 |ine.\n";|...print|
|000006b0| 20 22 20 20 20 77 72 20 | 74 65 78 74 20 20 20 20 | "   wr |text    |
|000006c0| 20 20 20 20 20 20 20 20 | 20 2d 20 57 72 69 74 65 |        | - Write|
|000006d0| 20 61 20 6c 69 6e 65 2e | 5c 6e 22 3b 0d 09 09 70 | a line.|\n";...p|
|000006e0| 72 69 6e 74 20 22 20 20 | 20 71 20 20 20 20 20 20 |rint "  | q      |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 20 51 |        |     - Q|
|00000700| 75 69 74 2e 5c 6e 22 3b | 0d 09 7d 0d 09 70 72 69 |uit.\n";|..}..pri|
|00000710| 6e 74 20 22 5c 6e 3f 5c | 6e 22 3b 0d 7d 0d 0d 70 |nt "\n?\|n";.}..p|
|00000720| 72 69 6e 74 20 22 5c 6e | 48 61 76 65 20 61 20 6e |rint "\n|Have a n|
|00000730| 69 63 65 20 64 61 79 2e | 5c 6e 22 3b 0d 00 00 00 |ice day.|\n";....|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000790| 40 68 61 6e 64 6c 65 73 | 29 20 7b 0d 09 09 69 66 |@handles|) {...if|
|000007a0| 20 28 2f 24 6e 65 78 74 | 70 61 74 2f 6f 29 20 7b | (/$next|pat/o) {|
|000007b0| 06 43 68 61 74 2e 74 da | 02 00 00 00 54 45 58 54 |.Chat.t.|....TEXT|
|000007c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 76 01 |MPS ....|......v.|
|000007d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a7 4a cf 69 00 00 | 06 bd 00 00 01 ac 09 24 |...J.i..|.......$|
|00000800| 74 69 6d 65 6f 75 74 20 | 3d 20 30 3b 20 23 20 77 |timeout |= 0; # w|
|00000810| 65 20 68 61 76 65 20 61 | 20 77 69 6e 6e 65 72 0d |e have a| winner.|
|00000820| 09 09 09 09 24 72 65 61 | 64 79 7b 24 5f 7d 2b 2b |....$rea|dy{$_}++|
|00000830| 3b 0d 09 09 09 7d 0d 09 | 09 09 24 68 61 6e 64 6c |;....}..|..$handl|
|00000840| 65 6e 61 6d 65 7b 66 69 | 6c 65 6e 6f 28 24 5f 29 |ename{fi|leno($_)|
|00000850| 7d 20 3d 20 24 5f 3b 0d | 09 09 7d 20 65 6c 73 65 |} = $_;.|..} else|
|00000860| 20 7b 0d 09 09 09 24 68 | 61 6e 64 6c 65 6e 61 6d | {....$h|andlenam|
|00000870| 65 7b 66 69 6c 65 6e 6f | 28 2f 27 2f 20 3f 20 24 |e{fileno|(/'/ ? $|
|00000880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 20 3d 20 |...H..Mo|naco. = |
|00000890| 70 69 63 6b 28 22 43 68 | 6f 6f 73 65 20 61 20 73 |pick("Ch|oose a s|
|000008a0| 6f 63 6b 65 74 20 00 06 | 00 03 00 50 00 20 01 dd |ocket ..|...P. ..|
|000008b0| 02 3d 00 50 00 20 01 dd | 02 3d a7 55 56 c2 00 00 |.=.P. ..|.=.UV...|
|000008c0| 03 9c 00 00 03 c9 00 00 | 00 1a 01 00 00 00 00 1e |........|........|
|000008d0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|000008e0| 00 00 00 1a 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 49 |.....n..|.n...>.I|
|00000900| aa b4 10 e6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000910| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 03 f0 ff ff 00 00 00 4c | 00 4f de 08 00 00 00 00 |.......L|.O......|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+